home *** CD-ROM | disk | FTP | other *** search
/ The Net Power 1997 October / NET_DISC.iso / mac / Apple Stuff / Electrifier / Electrifier Demo / Electrifier Demo.DXR / 00116_prev butt.ls < prev    next >
Encoding:
Text File  |  1996-11-13  |  637 b   |  30 lines
  1. on mouseDown
  2.   genericDown()
  3. end
  4.  
  5. on mouseUp
  6.   if rollOver(the clickOn) = 0 then
  7.     exit
  8.   end if
  9.   set buttonName to genericUp()
  10.   removequickTime()
  11.   repeat with n = 1 to 48
  12.     puppetSprite(n, 0)
  13.   end repeat
  14.   sound stop 1
  15.   sound close 1
  16.   sound stop 2
  17.   sound close 2
  18.   set thisFrame to the frame
  19.   repeat with n = the number of lines in field "markerlist" down to 1
  20.     set nextFrame to value(line n of field "markerlist")
  21.     if nextFrame <= thisFrame then
  22.       exit repeat
  23.     end if
  24.   end repeat
  25.   set nextFrame to value(line n - 1 of field "markerlist")
  26.   puppetTransition(12, 1, 48, 0)
  27.   go(nextFrame)
  28.   unloadMember()
  29. end
  30.